home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / arexx / ole1v10a.lha / OLE_System / rexx / netprint.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-01-31  |  2.0 KB  |  91 lines
  1. /*
  2.  * netprint.rexx
  3.  *
  4.  * USAGE: netprint.rexx
  5.  *
  6.  * netprint.rexx
  7.  *
  8.  * $(C): (1994, Rocco Coluccelli, Bologna)
  9.  * $VER: netprint 1.01 (31.Jan.1995)
  10.  */
  11.  
  12. ADDRESS COMMAND
  13.  
  14. MAXLINE = 80
  15.  
  16. IF ~SHOW('P','OLE_DISPLAY') THEN
  17.     RUN '>NIL: Multiview iff/piano PORTNAME OLE_DISPLAY'
  18.  
  19. s1 = "Well, as you can see, this is a token-ring style network."
  20. s2 = "Start with connecting a printer on it."
  21. CALL Print(s1,s2)
  22. ''SAY '-m -s160 -p80' s1 s2
  23. ADDRESS OLE_DISPLAY "OPEN NAME iff/TokenRing.1prt"
  24.  
  25. s1 = "Let's have a try to connect some computers on the same network."
  26. CALL Print(s1,)
  27. ''SAY '-m -s130 -p90' s1
  28. ADDRESS OLE_DISPLAY "OPEN NAME iff/TokenRing.1prt.2pc"
  29.  
  30. s1 = "Now, how many modes, do you know to send a file on network for printing?"
  31. s2 = "One of those many, it might be printing directly from each computer."
  32. CALL Print(s1,s2,)
  33. ''SAY '-m -s130 -p100' s1
  34. ''SAY '-m -s140 -p80' s2
  35. ADDRESS OLE_DISPLAY "OPEN NAME iff/TokenRing.prt.direct"
  36.  
  37. s1 = "At this point, I don't known anything about the net transfer rate."
  38. s2 = "My computer is busy until the printing will be finished."
  39. s3 = "What happen if others need the network?"
  40. s4 = "Miss Dossmasher?"
  41. CALL Print(s1 s2,)
  42. ''SAY '-m -s120 -p90' s1
  43. ''SAY '-m -s140 -p100' s2
  44. CALL Print(s3,s4,)
  45. ''SAY '-m -s120 -p100' s3 s4
  46. ADDRESS OLE_DISPLAY "OPEN NAME iff/TokenRing.prt.direct.busy"
  47.  
  48. s1 = "Perhaps,"
  49. s2 = "oooooaaaa"
  50. s3 = "they have to wait?"
  51. CALL Print(s1 s3,)
  52. ''SAY '-f -s80 -p260' s1
  53. ''SAY '-f -s40 -p320' s2
  54. ''SAY '-f -s100 -p300' s3
  55.  
  56. s1 = "Welcome back in the living world, Miss Ballsmasher."
  57. s2 = "Did you seen the answer dreaming"
  58. CALL Print(s1,s2 || '?',)
  59. ''SAY '-m -s120 -p130' s1
  60. ''SAY '-m -s140 -p100' s2
  61.  
  62. EXIT 0
  63.  
  64.  
  65. /*
  66.  *    procedure to split text onto lines of MAXLINE characters length
  67.  */
  68. Print: PROCEDURE EXPOSE MAXLINE
  69.  
  70.     DO i = 1 TO ARG()
  71.  
  72.         line = ARG(i)
  73.         DO FOREVER
  74.  
  75.             IF LENGTH(line) <= MAXLINE THEN DO
  76.                 ECHO line
  77.                 LEAVE
  78.                 END
  79.  
  80.             pos = MAX(LASTPOS(' ',line,MAXLINE),POS(' ',line))
  81.             IF pos = 0 THEN DO
  82.                 ECHO line
  83.                 LEAVE
  84.                 END
  85.  
  86.             ECHO LEFT(line,pos); line = SUBSTR(line,pos + 1)
  87.         END
  88.     END
  89.  
  90. RETURN
  91.